/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_7 / issue_09 / ass_lang / WordPlot

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 20 f4 20 3e | 57 6f 72 64 50 6c 6f 74 |.... . >|WordPlot|
|00000010| 0d 00 14 09 20 eb 20 31 | 33 0d 00 1e 13 20 de 20 |.... . 1|3.... . |
|00000020| 63 6f 64 65 20 34 30 2a | 31 30 32 34 0d 00 28 0e |code 40*|1024..(.|
|00000030| 20 f2 61 73 73 65 6d 62 | 6c 65 0d 00 32 11 20 d6 | .assemb|le..2. .|
|00000040| 20 73 63 72 65 65 6e 62 | 61 73 65 0d 00 37 0e 20 | screenb|ase..7. |
|00000050| d6 20 61 6e 69 6d 61 74 | 65 0d 00 3c 06 20 e0 0d |. animat|e..<. ..|
|00000060| 00 46 0f 20 dd f2 61 73 | 73 65 6d 62 6c 65 0d 00 |.F. ..as|semble..|
|00000070| 50 15 20 e3 20 70 61 73 | 73 3d 30 20 b8 20 32 20 |P. . pas|s=0 . 2 |
|00000080| 88 20 32 0d 00 5a 0c 20 | 50 25 3d 63 6f 64 65 0d |. 2..Z. |P%=code.|
|00000090| 00 64 0e 20 5b 4f 50 54 | 20 70 61 73 73 0d 00 6e |.d. [OPT| pass..n|
|000000a0| 0f 2e 73 63 72 65 65 6e | 62 61 73 65 0d 00 78 2c |..screen|base..x,|
|000000b0| 20 41 44 52 20 52 30 2c | 69 6e 70 75 74 20 20 20 | ADR R0,|input   |
|000000c0| 20 3b 52 30 20 61 6e 64 | 20 52 31 20 70 6f 69 6e | ;R0 and| R1 poin|
|000000d0| 74 20 74 6f 20 74 68 65 | 0d 00 82 2d 20 41 44 52 |t to the|...- ADR|
|000000e0| 20 52 31 2c 6f 75 74 70 | 75 74 20 20 20 3b 69 6e | R1,outp|ut   ;in|
|000000f0| 70 75 74 20 61 6e 64 20 | 6f 75 74 70 75 74 20 62 |put and |output b|
|00000100| 6c 6f 63 6b 73 0d 00 8c | 1e 20 53 57 49 20 22 4f |locks...|. SWI "O|
|00000110| 53 5f 52 65 61 64 56 64 | 75 56 61 72 69 61 62 6c |S_ReadVd|uVariabl|
|00000120| 65 73 22 0d 00 96 12 20 | 4c 44 52 20 52 30 2c 6f |es".... |LDR R0,o|
|00000130| 75 74 70 75 74 0d 00 9b | 12 20 53 54 52 20 52 30 |utput...|. STR R0|
|00000140| 2c 73 63 62 61 73 65 0d | 00 a0 0f 20 4d 4f 56 20 |,scbase.|... MOV |
|00000150| 50 43 2c 52 31 34 0d 00 | aa 1b 2e 69 6e 70 75 74 |PC,R14..|...input|
|00000160| 20 45 51 55 44 20 31 34 | 39 3a 45 51 55 44 20 2d | EQUD 14|9:EQUD -|
|00000170| 31 0d 00 b4 19 2e 6f 75 | 74 70 75 74 20 45 51 55 |1.....ou|tput EQU|
|00000180| 44 20 30 3a 45 51 55 44 | 20 30 0d 00 c8 20 2e 73 |D 0:EQUD| 0... .s|
|00000190| 63 72 65 65 6e 20 45 51 | 55 44 20 31 20 3b 20 62 |creen EQ|UD 1 ; b|
|000001a0| 61 6e 6b 20 6e 75 6d 62 | 65 72 0d 00 c9 14 20 2e |ank numb|er.... .|
|000001b0| 63 6f 75 6e 74 65 72 20 | 45 51 55 44 20 30 0d 00 |counter |EQUD 0..|
|000001c0| cd 28 2e 73 63 62 61 73 | 65 20 45 51 55 44 20 30 |.(.scbas|e EQUD 0|
|000001d0| 20 3b 20 73 63 72 65 65 | 6e 20 62 61 73 65 20 61 | ; scree|n base a|
|000001e0| 64 64 72 65 73 73 0d 00 | d2 0c 2e 61 6e 69 6d 61 |ddress..|...anima|
|000001f0| 74 65 0d 00 dc 15 20 53 | 54 4d 46 44 20 52 31 33 |te.... S|TMFD R13|
|00000200| 21 2c 7b 52 31 34 7d 0d | 00 e1 0d 2e 61 6e 69 6d |!,{R14}.|....anim|
|00000210| 6c 6f 6f 70 0d 00 e6 10 | 20 4d 4f 56 20 52 30 2c |loop....| MOV R0,|
|00000220| 23 31 31 32 0d 00 eb 13 | 20 4c 44 52 20 52 31 32 |#112....| LDR R12|
|00000230| 2c 73 63 62 61 73 65 0d | 00 f0 12 20 4c 44 52 20 |,scbase.|... LDR |
|00000240| 52 31 2c 73 63 72 65 65 | 6e 0d 00 f5 0e 20 43 4d |R1,scree|n.... CM|
|00000250| 50 20 52 31 2c 23 32 0d | 00 f6 19 20 41 44 44 45 |P R1,#2.|... ADDE|
|00000260| 51 20 52 31 32 2c 52 31 | 32 2c 23 38 31 39 32 30 |Q R12,R1|2,#81920|
|00000270| 0d 00 fa 12 20 53 57 49 | 20 22 4f 53 5f 42 79 74 |.... SWI| "OS_Byt|
|00000280| 65 22 0d 00 ff 1c 20 53 | 57 49 20 26 31 30 43 20 |e".... S|WI &10C |
|00000290| 3b 20 76 64 75 20 31 32 | 20 2d 20 63 6c 73 0d 01 |; vdu 12| - cls..|
|000002a0| 2c 12 20 41 44 52 20 52 | 35 2c 6c 6f 6f 6b 75 70 |,. ADR R|5,lookup|
|000002b0| 0d 01 36 13 20 4c 44 52 | 20 52 30 2c 63 6f 75 6e |..6. LDR| R0,coun|
|000002c0| 74 65 72 0d 01 40 12 20 | 53 55 42 53 20 52 30 2c |ter..@. |SUBS R0,|
|000002d0| 52 30 2c 23 38 0d 01 4a | 14 20 4d 4f 56 4c 45 20 |R0,#8..J|. MOVLE |
|000002e0| 52 30 2c 23 33 36 30 2a | 38 0d 01 4f 13 20 53 55 |R0,#360*|8..O. SU|
|000002f0| 42 4c 45 20 52 30 2c 52 | 30 2c 23 38 0d 01 54 13 |BLE R0,R|0,#8..T.|
|00000300| 20 53 54 52 20 52 30 2c | 63 6f 75 6e 74 65 72 0d | STR R0,|counter.|
|00000310| 01 5e 11 20 41 44 44 20 | 52 30 2c 52 30 2c 52 35 |.^. ADD |R0,R0,R5|
|00000320| 0d 01 68 15 20 4c 44 4d | 49 41 20 52 30 2c 7b 52 |..h. LDM|IA R0,{R|
|00000330| 33 2c 52 34 7d 0d 01 72 | 12 20 42 4c 20 70 6c 6f |3,R4}..r|. BL plo|
|00000340| 74 73 70 72 69 74 65 0d | 01 fe 0f 20 4d 4f 56 20 |tsprite.|... MOV |
|00000350| 52 30 2c 23 31 39 0d 02 | 08 12 20 53 57 49 20 22 |R0,#19..|.. SWI "|
|00000360| 4f 53 5f 42 79 74 65 22 | 0d 02 0d 10 20 4d 4f 56 |OS_Byte"|.... MOV|
|00000370| 20 52 30 2c 23 31 31 33 | 0d 02 12 12 20 4c 44 52 | R0,#113|.... LDR|
|00000380| 20 52 31 2c 73 63 72 65 | 65 6e 0d 02 1c 12 20 53 | R1,scre|en.... S|
|00000390| 57 49 20 22 4f 53 5f 42 | 79 74 65 22 0d 02 26 12 |WI "OS_B|yte"..&.|
|000003a0| 20 4c 44 52 20 52 31 2c | 73 63 72 65 65 6e 0d 02 | LDR R1,|screen..|
|000003b0| 30 11 20 52 53 42 20 52 | 31 2c 52 31 2c 23 33 0d |0. RSB R|1,R1,#3.|
|000003c0| 02 3a 12 20 53 54 52 20 | 52 31 2c 73 63 72 65 65 |.:. STR |R1,scree|
|000003d0| 6e 0d 02 44 1d 20 53 57 | 49 20 22 4f 53 5f 52 65 |n..D. SW|I "OS_Re|
|000003e0| 61 64 45 73 63 61 70 65 | 53 74 61 74 65 22 0d 02 |adEscape|State"..|
|000003f0| 4e 11 20 42 43 43 20 61 | 6e 69 6d 6c 6f 6f 70 0d |N. BCC a|nimloop.|
|00000400| 02 58 14 20 4c 44 4d 46 | 44 20 52 31 33 21 2c 7b |.X. LDMF|D R13!,{|
|00000410| 50 43 7d 0d 03 e8 0f 2e | 70 6c 6f 74 73 70 72 69 |PC}.....|plotspri|
|00000420| 74 65 0d 03 f2 12 20 41 | 44 44 20 52 30 2c 52 31 |te.... A|DD R0,R1|
|00000430| 32 2c 52 33 0d 03 fc 17 | 20 41 44 44 20 52 30 2c |2,R3....| ADD R0,|
|00000440| 52 30 2c 52 34 2c 41 53 | 4c 23 36 0d 04 06 17 20 |R0,R4,AS|L#6.... |
|00000450| 41 44 44 20 52 30 2c 52 | 30 2c 52 34 2c 41 53 4c |ADD R0,R|0,R4,ASL|
|00000460| 23 38 0d 04 0b 19 20 41 | 44 52 20 52 36 2c 73 70 |#8.... A|DR R6,sp|
|00000470| 72 69 74 65 61 64 64 72 | 2b 35 36 0d 04 10 0f 20 |riteaddr|+56.... |
|00000480| 4d 4f 56 20 52 31 2c 23 | 31 36 0d 04 1a 0b 20 2e |MOV R1,#|16.... .|
|00000490| 79 6c 6f 6f 70 0d 04 24 | 17 20 4c 44 4d 49 41 20 |yloop..$|. LDMIA |
|000004a0| 52 36 21 2c 7b 52 37 2d | 52 31 30 7d 0d 04 2e 16 |R6!,{R7-|R10}....|
|000004b0| 20 53 54 4d 49 41 20 52 | 30 2c 7b 52 37 2d 52 31 | STMIA R|0,{R7-R1|
|000004c0| 30 7d 0d 04 38 13 20 41 | 44 44 20 52 30 2c 52 30 |0}..8. A|DD R0,R0|
|000004d0| 2c 23 33 32 30 0d 04 6a | 12 20 53 55 42 53 20 52 |,#320..j|. SUBS R|
|000004e0| 31 2c 52 31 2c 23 31 0d | 04 74 0e 20 42 4e 45 20 |1,R1,#1.|.t. BNE |
|000004f0| 79 6c 6f 6f 70 0d 04 7e | 0f 20 4d 4f 56 20 50 43 |yloop..~|. MOV PC|
|00000500| 2c 52 31 34 0d 04 88 0f | 2e 73 70 72 69 74 65 61 |,R14....|.spritea|
|00000510| 64 64 72 0d 04 92 0d 20 | 5d 50 25 2b 3d 35 31 32 |ddr.... |]P%+=512|
|00000520| 0d 04 9c 0e 20 5b 4f 50 | 54 20 70 61 73 73 0d 0f |.... [OP|T pass..|
|00000530| a0 0b 2e 6c 6f 6f 6b 75 | 70 0d 0f aa 0b 20 a4 74 |...looku|p.... .t|
|00000540| 61 62 6c 65 0d 13 88 0c | 20 5d ed 20 70 61 73 73 |able....| ]. pass|
|00000550| 0d 13 8d 2e 20 c8 99 20 | 22 4f 53 5f 43 4c 49 22 |.... .. |"OS_CLI"|
|00000560| 2c 22 4c 6f 61 64 20 6d | 79 73 70 72 69 74 65 20 |,"Load m|ysprite |
|00000570| 22 2b c3 7e 73 70 72 69 | 74 65 61 64 64 72 0d 13 |"+.~spri|teaddr..|
|00000580| 92 06 20 e1 0d 1f 40 0c | 20 dd a4 74 61 62 6c 65 |.. ...@.| ..table|
|00000590| 0d 1f 4a 11 20 e3 20 49 | 25 3d 30 20 b8 20 33 35 |..J. . I|%=0 . 35|
|000005a0| 39 0d 1f 54 0e 20 5b 4f | 50 54 20 70 61 73 73 0d |9..T. [O|PT pass.|
|000005b0| 1f 5e 1a 20 45 51 55 44 | 20 31 36 30 2b 31 30 30 |.^. EQUD| 160+100|
|000005c0| 2a b5 28 b2 28 49 25 29 | 29 0d 1f 68 1a 20 45 51 |*.(.(I%)|)..h. EQ|
|000005d0| 55 44 20 31 32 38 2b 31 | 30 30 2a 9b 28 b2 28 49 |UD 128+1|00*.(.(I|
|000005e0| 25 29 29 0d 1f 72 09 20 | 5d ed 49 25 0d 1f 7c 08 |%))..r. |].I%..|.|
|000005f0| 20 3d 22 22 0d ff       |                         | =""..  |        |
+--------+-------------------------+-------------------------+--------+--------+